﻿Public Class ProductosItem 
    
    Private Sub ProductosItem_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            'TODO: This line of code loads data into the 'DbFireAndIceDataSet.tipoproducto' table. You can move, or remove it, as needed.
            Me.TipoproductoTableAdapter.Fill(Me.DbFireAndIceDataSet.tipoproducto)
        Catch ex As Exception
            AlertControl1.Show(Owner, "ERROR", "No se pudo cargar registros de Categoría Producto Venta")
        End Try
        PrecioventaexternoTextEdit.EditValue = 0.0
        PrecioventaTextEdit.EditValue = 0.0

        Try
            'TODO: This line of code loads data into the 'DbFireAndIceDataSet.itemventa' table. You can move, or remove it, as needed.
            Me.ItemventaTableAdapter.Fill(Me.DbFireAndIceDataSet.itemventa)
        Catch ex As Exception
            AlertControl1.Show(Owner, "ERROR", "No se pudo cargar registros de Producto Venta")
        End Try
        GroupControl1.Text = My.Forms.Productos.DescripcionTextEdit.Text
    End Sub

    Private Sub SimpleButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton1.Click
        Dim opcion As Integer
        If PrecioventaTextEdit.EditValue = 0 Then
            ErrorProvider1.SetError(PrecioventaTextEdit, "Debe ingresar un Precio Venta Cliente")
        Else
            ErrorProvider1.SetError(PrecioventaTextEdit, Nothing)

            If PrecioventaexternoTextEdit.EditValue = 0 Then
                ErrorProvider1.SetError(PrecioventaexternoTextEdit, "Debe ingresar un Precio Venta Visita")
            Else
                ErrorProvider1.SetError(PrecioventaexternoTextEdit, Nothing)

                If IdtipoLookUpEdit.Text = "" Then
                    ErrorProvider1.SetError(IdtipoLookUpEdit, "Debe seleccionar una Categoría de Producto Venta")
                Else
                    ErrorProvider1.SetError(IdtipoLookUpEdit, Nothing)
                    
                        My.Forms.Productos.PrecioVentaCliente.EditValue = PrecioventaTextEdit.EditValue
                        My.Forms.Productos.PrecioVentaVisita.EditValue = PrecioventaexternoTextEdit.EditValue
                        My.Forms.Productos.Idtipo.EditValue = IdtipoLookUpEdit.EditValue
                        My.Forms.Productos.variable = 2

                    'If My.Forms.Productos.ExistenciaTextEdit.EditValue = 0 Then

                    '    opcion = MsgBox("¿Está seguro que desea dejar la existencia en 0?", MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, "Alerta")
                    '    If opcion = vbYes Then
                    '        Dim idd As Integer = My.Forms.Productos.ItemventaTableAdapter.ScalarQueryitem
                    '    MsgBox(ItemventaTableAdapter.ScalarQueryitem)

                    '    MsgBox(idd)

                    '        My.Forms.Productos.ProductosBindingNavigatorSaveItem.PerformClick()
                    '        Try
                    '            My.Forms.Productos.ItemventaTableAdapter.InsertQueryItem(idd, My.Forms.Productos.DescripcionTextEdit.Text, My.Forms.Productos.DescripcionTextEdit.Text, My.Forms.Productos.PreciocomprauniTextEdit.EditValue, Val(My.Forms.Productos.PrecioVentaCliente.EditValue), Val(My.Forms.Productos.IdunidadescategoriaLookUpEdit.EditValue), Val(My.Forms.Productos.Idtipo.EditValue), Val(My.Forms.Productos.PrecioVentaVisita.EditValue), False)
                    '        Catch ex As Exception
                    '            AlertControl1.Show(Owner, "ERROR", "No se pudo almacenar el Producto Venta Encabezado")
                    '        End Try

                    '        Try
                    '            My.Forms.Productos.ItemventadetalleTableAdapter.InsertQueryItemdetalle(idd, Val(My.Forms.Productos.IdproductoTextEdit.EditValue), 1, Val(My.Forms.Productos.PreciocomprauniTextEdit.EditValue), Val(My.Forms.Productos.PreciocomprauniTextEdit.EditValue))
                    '        Catch ex As Exception
                    '            My.Forms.Productos.AlertControl1.Show(Owner, "ERROR", "No se pudo almacenar el Producto Venta Detalle")
                    '        End Try
                    '        My.Forms.Productos.Mostrar()
                    '    End If
                    'Else

                    '    Dim idd As Integer = My.Forms.Productos.ItemventaTableAdapter.ScalarQueryitem




                    '    My.Forms.Productos.ProductosBindingNavigatorSaveItem.PerformClick()
                    '    Try
                    '        My.Forms.Productos.ItemventaTableAdapter.InsertQueryItem(idd, My.Forms.Productos.DescripcionTextEdit.Text, My.Forms.Productos.DescripcionTextEdit.Text, My.Forms.Productos.PreciocomprauniTextEdit.EditValue, Val(My.Forms.Productos.PrecioVentaCliente.EditValue), Val(My.Forms.Productos.IdunidadescategoriaLookUpEdit.EditValue), Val(My.Forms.Productos.Idtipo.EditValue), Val(My.Forms.Productos.PrecioVentaVisita.EditValue), False)
                    '    Catch ex As Exception
                    '        AlertControl1.Show(Owner, "ERROR", "No se pudo almacenar el Producto Venta Encabezado")
                    '    End Try

                    '    Try
                    '        My.Forms.Productos.ItemventadetalleTableAdapter.InsertQueryItemdetalle(idd, Val(My.Forms.Productos.IdproductoTextEdit.EditValue), 1, Val(My.Forms.Productos.PreciocomprauniTextEdit.EditValue), Val(My.Forms.Productos.PreciocomprauniTextEdit.EditValue))
                    '    Catch ex As Exception
                    '        My.Forms.Productos.AlertControl1.Show(Owner, "ERROR", "No se pudo almacenar el Producto Venta Detalle")
                    '    End Try
                    '    My.Forms.Productos.Mostrar()
                    'End If
                        Me.Close()

                End If
            End If
        End If


    End Sub
End Class